home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / fractal.arc / FRACTAL1.BAS next >
Encoding:
BASIC Source File  |  1986-05-03  |  760 b   |  25 lines
  1. 90 DIM SN(14):KEY OFF
  2. 100 CLS:SCREEN 0
  3. 110 PRINT"ENTER AN EVEN NO. OF CYCLES (2 TO 14)"
  4. 120 INPUT"          OR ENTER A ZERO TO QUIT: ";NC
  5. 130 IF NC=0 THEN KEY ON:END
  6. 140 IF NC MOD 2 = 1 OR NC < 2 OR NC > 14 THEN 100
  7. 150 L=128:FOR C=2 TO NC STEP 2:L=L/2:NEXT
  8. 160 X=192:Y=133:CLS:SCREEN 2:PSET(X,Y),1
  9. 170 FOR C=0 TO NC:SN(C)=0:NEXT
  10. 180 D=0:FOR C=1 TO NC:IF SN(C-1)=SN(C) THEN D=D-1:GOTO 200
  11. 190 D=D+1
  12. 200 IF D=-1 THEN D=7
  13. 210 IF D=8 THEN D=0
  14. 220 NEXT
  15. 230 IF D=0 THEN X=X+L+L:GOTO 270
  16. 240 IF D=2 THEN Y=Y+L:GOTO 270
  17. 250 IF D=4 THEN X=X-L-L:GOTO 270
  18. 260 Y=Y-L
  19. 270 LINE -(X,Y),1:SN(NC)=SN(NC)+1
  20. 280 FOR C=NC TO 1 STEP -1:IF SN(C)<>2 THEN 300
  21. 290 SN(C)=0:SN(C-1)=SN(C-1)+1:NEXT
  22. 300 IF SN(0)=0 THEN 180
  23. 310 IF INKEY$="" THEN 310
  24. 320 GOTO 100
  25.